home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
SEARCH
/
RUBICON
/
RBDBGRID.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-10-21
|
2KB
|
71 lines
{*********************************************************}
{* RBDBGRID.PAS 1.20 *}
{* Copyright (c) Tamarack Associates 1996. *}
{* All rights reserved. *}
{*********************************************************}
unit rbDBGrid;
interface
uses
{$IFDEF WIN32}
Windows,
{$ELSE}
WinTypes, WinProcs,
{$ENDIF}
SysUtils, Messages, Classes, Graphics, Controls,
Forms, Dialogs, Grids, DB, DBGrids, rbDBMemo;
type
TDBGridForm = class(TForm)
Grid: TDBGrid;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure GridDblClick(Sender: TObject);
procedure GridKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
PROCEDURE DisplayMemoField;
public
{ Public declarations }
end;
var
DBGridForm: TDBGridForm;
implementation
{$R *.DFM}
procedure TDBGridForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree
end;
procedure TDBGridForm.GridDblClick(Sender: TObject);
begin
DisplayMemoField
end;
procedure TDBGridForm.DisplayMemoField;
VAR F : TDBMemoForm;
BEGIN
IF Grid.SelectedField.DataType = ftMemo THEN
BEGIN
Application.CreateForm(TDBMemoForm,F);
F.Memo.DataSource := Grid.DataSource;
F.Memo.DataField := Grid.SelectedField.FieldName;
F.Caption := F.Memo.DataField;
F.Show
END
END;
procedure TDBGridForm.GridKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF Key IN [VK_RETURN, VK_SPACE] THEN DisplayMemoField
end;
end.